[VB]在OLE控件中播放WAV格式音乐，如何中止？？

http://www.chinesebloger.com/dispbbs.asp?boardID=2&ID=21834&page=1
你可以到上面这个链接去下载相应的工程。工程中不包含声音文件。

新建一个工程，然后在左侧工具箱的空白处单击右键，选择“部件”，找到“Windows media player”，并选中，单击确定。这时在工具栏上会出现一个Windows media player控件的图标。像使用别的控件一样，在窗体上放置一个Window media player控件。然后在窗体上放置3个Commandbutton控件，command1的caption属性修改为：“开始播放”，command2的caption属性修改为：“停止播放”，command3的caption属性修改为：“暂停播放”，然后保存这个工程，并在工程的目录下放置一个音频文件，只要是使用Windows media player能播放的都可以。这里我使用的音频文件为一首mp3，文件名为：“1.mp3”。代码如下：
注意：我使用的Windows media player的版本是10。
Dim pauseflag As Boolean '定义暂停标志，true表示当前处在暂停状态，false表示不是暂停状态
Private Sub Command1_Click()
WindowsMediaPlayer1.URL = App.Path & "\1.mp3"
WindowsMediaPlayer1.Controls.play
pauseflag = False
End Sub

Private Sub Command2_Click()
WindowsMediaPlayer1.Controls.stop
End Sub

Private Sub Command3_